home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh23b.d64 / mask gen. (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  53 lines
  1. 10 PRINT"[147]":A$="                                       "
  2. 20 PRINTA$:PRINT"  [146] [164][164][164][164][164][164][164][164][164][164][164][169]      [146] [164][164][164][164][164][164][164][164][164][169]       [146]"
  3. 30 PRINT"  [146]         KHZ  GRF  [146]         %  PLS   [146]"
  4. 40 PRINT"  [169]";LEFT$(A$,19);"[169]";LEFT$(A$,18)
  5. 50 PRINTA$:PRINT"  [146] [164][164][164][164][164][164][164][164][164][164][164][169]         [146]  [169]";LEFT$(A$,13)
  6. 60 PRINT"  [146]          HZ  FRQ WAV [146]    DREIECK    "
  7. 70 PRINT"  [169]";LEFT$(A$,22);"[146]    SAEGEZAHN  "
  8. 80 PRINTLEFT$(A$,25);"[146]    RECHTECK   "
  9. 90 PRINT"  [146]  [169][146]  [169][146]  [169][146]  [169][146]  [169][146]  [169][146]  [169] [146]    RAUSCHEN   "
  10. 100 B$="  [146]   [146]   [146]   [146]   "
  11. 110 B$=B$+"[146]   [146]   [146]   "
  12. 120 PRINTB$;" [146] [192]  AUS        "
  13. 130 PRINTB$;" [169]";RIGHT$(A$,14)
  14. 140 PRINTB$;RIGHT$(A$,16)
  15. 150 PRINTB$;"    [146][169]       TES "
  16. 160 PRINTB$;"  = [146]  [146][209] RMD     "
  17. 170 PRINTB$;" [146][169]          END "
  18. 180 PRINTB$;"    [146][169]";RIGHT$(A$,11)
  19. 190 PRINT"  [146] [210] [146] [210] [146] [210] [146] [210] [146] [210] [146] [210] [146]     = [146]  [146][209] SYN VOI "
  20. 200 PRINT"  [169]  [169]  [169]  [169]  [169]  [169]  [169]   [146][169]   ";RIGHT$(A$,11)
  21. 210 PRINT"   A  D  S  R  V  R  F     [146][169]       [146] [164][169] "
  22. 220 PRINT"   T  E  U  E  O  E  I   = [146]  [146][209] FIL [146] 1  "
  23. 230 PRINT"   T  C  S  L  L  S  L  [146][169]          [169]   "
  24. 240 PRINTA$:PRINTA$;
  25. 250 FORI=55296TO56255:POKEI,12:NEXTI:FORI=56256TO56295:POKEI,11:NEXTI
  26. 260 X=2:Y=10:B=21:H=10:C=15:GOSUB500
  27. 270 Y=11:H=8:C=0:FORS=0TO6:X=3+S*3:GOSUB520:NEXTS
  28. 280 X=2:Y=2:B=13:H=3:C=15:GOSUB500:Y=6:GOSUB500
  29. 290 X=3:Y=2:B=11:H=2:C=13:GOSUB500:Y=6:GOSUB500
  30. 300 X=21:Y=2:B=11:H=3:C=15:GOSUB500
  31. 310 X=22:Y=2:B=9:H=2:C=13:GOSUB500
  32. 320 X=24:Y=6:B=3:H=7:C=15:GOSUB500
  33. 330 X=25:Y=7:H=5:C=0:GOSUB520
  34. 340 X=24:Y=14:B=4:H=9:C=15:GOSUB500
  35. 350 X=25:B=2:C=0:FORS=0TO2:Y=15+S*3:GOSUB510:NEXTS
  36. 360 X=35:Y=20:B=3:H=3:C=15:GOSUB500
  37. 370 X=36:Y=20:H=2:C=13:GOSUB520
  38. 380 POKE55925,0:POKE56045,0:POKE56165,0
  39. 390 AD=1024:N=1000:N$="MASK":GOSUB420
  40. 400 AD=55296:N$="C.MASK":GOSUB420
  41. 410 END
  42. 420 OPEN1,8,1,N$
  43. 430 PRINT#1,CHR$(AD-INT(AD/256)*256);
  44. 440 PRINT#1,CHR$(AD/256);
  45. 450 FORI=0TON-1
  46. 460 PRINT#1,CHR$(PEEK(AD+I));
  47. 470 NEXTI
  48. 480 CLOSE1
  49. 490 RETURN
  50. 500 FORI1=XTOX+B-1:FORI2=YTOY+H-1:POKE55296+I1+I2*40,C:NEXTI2,I1:RETURN
  51. 510 FORI=XTOX+B-1:POKE55296+I+Y*40,C:NEXTI:RETURN
  52. 520 FORI=YTOY+H-1:POKE55296+X+I*40,C:NEXTI:RETURN
  53.